(nnheader-insert-head): Handle the case that the

length of header is changed because of code conversion.

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index 1c93816dfb6c366f7360c6b6024d0e6c3ce544ff..a15e156eb1da5c1f2a1b49edcfe3e90725f39e32 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -302,8 +302,8 @@ on your system, you could say something like:
       (let ((beg 0)
            format-alist 
            (chop 1024))
-       (while (and (eq chop (nth 1 (insert-file-contents
-                                    file nil beg (incf beg chop))))
+       (while (and (not (zerop (nth 1 (insert-file-contents
+                                       file nil beg (incf beg chop)))))
                    (prog1 (not (search-forward "\n\n" nil t)) 
                      (goto-char (point-max)))
                    (or (null nnheader-max-head-length)